home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / prgtools / prtsut53.zip / SU1SRC.ZIP / REPDEM01.DFM / REPDEM01.txt
Text File  |  1996-12-09  |  8KB  |  260 lines
  1. object dem01form: Tdem01form
  2.   Left = 57
  3.   Top = 205
  4.   Width = 604
  5.   Height = 379
  6.   ActiveControl = Panel1
  7.   Caption = 'dem01form'
  8.   Font.Color = clBlack
  9.   Font.Height = -14
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   PixelsPerInch = 120
  13.   Position = poScreenCenter
  14.   OnCreate = FormCreate
  15.   TextHeight = 16
  16.   object Panel1: TPanel
  17.     Left = 0
  18.     Top = 0
  19.     Width = 596
  20.     Height = 97
  21.     Align = alTop
  22.     TabOrder = 0
  23.     object Label1: TLabel
  24.       Left = 25
  25.       Top = 16
  26.       Width = 434
  27.       Height = 19
  28.       Caption = 'This is a demonstration of the TPrintGridReport Component.'
  29.       Color = clBtnFace
  30.       Font.Color = clMaroon
  31.       Font.Height = -17
  32.       Font.Name = 'Arial'
  33.       Font.Style = []
  34.       ParentColor = False
  35.       ParentFont = False
  36.     end
  37.     object Label2: TLabel
  38.       Left = 25
  39.       Top = 41
  40.       Width = 421
  41.       Height = 19
  42.       Caption = 'The 5 lines of coding you need  to be able to preview and '
  43.       Color = clBtnFace
  44.       Font.Color = clMaroon
  45.       Font.Height = -17
  46.       Font.Name = 'Arial'
  47.       Font.Style = []
  48.       ParentColor = False
  49.       ParentFont = False
  50.     end
  51.     object Label3: TLabel
  52.       Left = 25
  53.       Top = 64
  54.       Width = 350
  55.       Height = 19
  56.       Caption = 'print this table can be found in REPDEM01.PAS'
  57.       Color = clBtnFace
  58.       Font.Color = clMaroon
  59.       Font.Height = -17
  60.       Font.Name = 'Arial'
  61.       Font.Style = []
  62.       ParentColor = False
  63.       ParentFont = False
  64.     end
  65.     object PreView: TBitBtn
  66.       Left = 496
  67.       Top = 9
  68.       Width = 89
  69.       Height = 27
  70.       Caption = 'Pre&View'
  71.       TabOrder = 0
  72.       OnClick = PreViewClick
  73.       Glyph.Data = {
  74.         76010000424D7601000000000000760000002800000020000000100000000100
  75.         04000000000000010000130B0000130B00000000000000000000000000000000
  76.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  77.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  78.         00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
  79.         8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
  80.         8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
  81.         8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
  82.         03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
  83.         03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
  84.         33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
  85.         33333337FFFF7733333333300000033333333337777773333333}
  86.       NumGlyphs = 2
  87.     end
  88.     object Exit: TBitBtn
  89.       Left = 496
  90.       Top = 64
  91.       Width = 89
  92.       Height = 28
  93.       Caption = '&Exit'
  94.       ModalResult = 2
  95.       TabOrder = 1
  96.       OnClick = ExitClick
  97.       Glyph.Data = {
  98.         78010000424D7801000000000000760000002800000020000000100000000100
  99.         04000000000000000000120B0000120B00000000000000000000000000000000
  100.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  101.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
  102.         03333377777777777F333301111111110333337F333333337F33330111111111
  103.         0333337F333333337F333301111111110333337F333333337F33330111111111
  104.         0333337F333333337F333301111111110333337F333333337F33330111111111
  105.         0333337F3333333F7F333301111111B10333337F333333737F33330111111111
  106.         0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
  107.         0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
  108.         0333337F377777337F333301111111110333337F333333337F33330111111111
  109.         0333337FFFFFFFFF7F33330000000000033333777777777773330000}
  110.       NumGlyphs = 2
  111.     end
  112.     object Print: TBitBtn
  113.       Left = 496
  114.       Top = 37
  115.       Width = 89
  116.       Height = 27
  117.       Caption = '&Print'
  118.       TabOrder = 2
  119.       OnClick = PrintClick
  120.       Glyph.Data = {
  121.         76010000424D7601000000000000760000002800000020000000100000000100
  122.         04000000000000010000130B0000130B00000000000000000000000000000000
  123.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  124.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  125.         00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
  126.         8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
  127.         8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
  128.         8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
  129.         03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
  130.         03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
  131.         33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
  132.         33333337FFFF7733333333300000033333333337777773333333}
  133.       NumGlyphs = 2
  134.     end
  135.   end
  136.   object Panel2: TPanel
  137.     Left = 0
  138.     Top = 97
  139.     Width = 596
  140.     Height = 255
  141.     Align = alClient
  142.     BevelInner = bvLowered
  143.     BorderWidth = 4
  144.     Caption = 'Panel2'
  145.     TabOrder = 1
  146.     object DBGrid1: TDBGrid
  147.       Left = 6
  148.       Top = 6
  149.       Width = 584
  150.       Height = 243
  151.       Align = alClient
  152.       BorderStyle = bsNone
  153.       DataSource = DataSource1
  154.       Font.Color = clTeal
  155.       Font.Height = -17
  156.       Font.Name = 'Arial'
  157.       Font.Style = [fsItalic]
  158.       Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  159.       ParentFont = False
  160.       TabOrder = 0
  161.       TitleFont.Color = clBlue
  162.       TitleFont.Height = -13
  163.       TitleFont.Name = 'Arial'
  164.       TitleFont.Style = [fsBold]
  165.     end
  166.   end
  167.   object DataSource1: TDataSource
  168.     DataSet = Table1
  169.     Left = 407
  170.     Top = 61
  171.   end
  172.   object Table1: TTable
  173.     Active = True
  174.     DatabaseName = 'DBDEMOS'
  175.     TableName = 'customer.db'
  176.     Left = 376
  177.     Top = 57
  178.     object Table1CustNo: TFloatField
  179.       DisplayWidth = 7
  180.       FieldName = 'CustNo'
  181.     end
  182.     object Table1Company: TStringField
  183.       DisplayWidth = 28
  184.       FieldName = 'Company'
  185.       Size = 30
  186.     end
  187.     object Table1City: TStringField
  188.       DisplayWidth = 15
  189.       FieldName = 'City'
  190.       Size = 15
  191.     end
  192.     object Table1Country: TStringField
  193.       DisplayWidth = 17
  194.       FieldName = 'Country'
  195.     end
  196.     object Table1Phone: TStringField
  197.       DisplayWidth = 14
  198.       FieldName = 'Phone'
  199.       Size = 15
  200.     end
  201.   end
  202.   object PrintGridReport1: TPrintGridReport
  203.     About = 'Version 5.32'
  204.     AboutRegistered = 'TOM SNIDER'
  205.     ViewButtonVisible = False
  206.     Copies = 1
  207.     OutputTo = poViewer
  208.     Orientation = Default
  209.     ViewBkColor = 11234567
  210.     Units = poInches
  211.     ViewHeading = 'Reportit Viewer'
  212.     FooterFont.Color = clBlack
  213.     FooterFont.Height = -17
  214.     FooterFont.Name = 'Arial'
  215.     FooterFont.Style = []
  216.     HeaderFont.Color = clRed
  217.     HeaderFont.Height = -20
  218.     HeaderFont.Name = 'Times New Roman'
  219.     HeaderFont.Style = [fsBold]
  220.     ViewerOptions = []
  221.     SubTotalString = '** SubTotal of @RecCount Records **'
  222.     TotalString = '*** Total of @RecCount Records ***'
  223.     ZoomPercentage = 25.000000000000000000
  224.     HeaderTop = 0.500000000000000000
  225.     HeaderStringCenter = 'Page Header'
  226.     HeaderEnabled = True
  227.     HeaderOutlined = True
  228.     HeaderFilled = False
  229.     FooterTop = 24.630000000000000000
  230.     FooterString = 'Page Footer'
  231.     FooterEnabled = True
  232.     FooterOutlined = True
  233.     FooterFilled = True
  234.     FooterStringLeft = 'Printed on @Date at @Time'
  235.     FooterStringRight = 'Page #: @Page'
  236.     DisableControls = True
  237.     BorderLeft = 0.250000000000000000
  238.     BorderRight = 0.250000000000000000
  239.     GridHeadingRow = 1.500000000000000000
  240.     GridHeadingCol = 0.250000000000000000
  241.     GridHeadingEnabled = True
  242.     GridHeadingOutlined = True
  243.     GridHeadingFilled = False
  244.     GridLines = True
  245.     LineSpacing = 1.500000000000000000
  246.     Grid = DBGrid1
  247.     GridMinWidth = False
  248.     GridCentered = True
  249.     GridPrintTotal = False
  250.     PrintSubTotals = False
  251.     FrameStyleLeft = frNone
  252.     FrameStyleTop = frDoubleThickThin
  253.     FrameStyleRight = frNone
  254.     FrameStyleBottom = frSingleThin
  255.     ReportStyle = rsOwn
  256.     Left = 440
  257.     Top = 56
  258.   end
  259. end
  260.